barek (11.08.2014 в 17:20)
Trikz (11.08.2014 в 17:16)
program blaBLA;

const
n = 30;

var
a :array [1..n] of integer;
i, sum :integer;
sr :real;

begin

for i:= 1 to n do
readln(a[i]);
sum:= 0;
for i:= 1 to n do
if (a[i] > 99) and (a[i] < 1000) and (a[i] mod 2 = 1) then
sum:= sum + a[i];
if sum = 0 then
writeln('Нечетных трехзначных чисел нет!')
else
sr:= sum/n;
writeln(sr);

end.

http://znanija.com/task/6280085

Trikz (11.08.2014 в 17:21)
barek (11.08.2014 в 17:20)
Trikz (11.08.2014 в 17:16)
program blaBLA;

const
n = 30;

var
a :array [1..n] of integer;
i, sum :integer;
sr :real;

begin

for i:= 1 to n do
readln(a[i]);
sum:= 0;
for i:= 1 to n do
if (a[i] > 99) and (a[i] < 1000) and (a[i] mod 2 = 1) then
sum:= sum + a[i];
if sum = 0 then
writeln('Нечетных трехзначных чисел нет!')
else
sr:= sum/n;
writeln(sr);

end.

http://znanija.com/task/6280085

ну да,я че ну дурака похож самому писать,информатику надо было учить:D

barek (11.08.2014 в 17:17)
Maratos668 (11.08.2014 в 14:38)
Дан массив, содержащий 30 целых чисел. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти минимально трехзначное число, записанное в этом массиве. Если такого числа нет то нужно вывести сообщение об этом.



const
n=30;
var
a: array [1..n] of integer;
i, j, min: integer;
begin
for i:=1 to n do
readln(a[i]);
.......
end.




На паскалееее!!!!! кину 3 р арбитраж и +

шя напишу огромный велосипед из 50 строк

Maratos668 (11.08.2014 в 17:37)
ап

barek (11.08.2014 в 23:04)
Maratos668,
кошелек в анкете :)
<?php
$ar=array(73,164,278,49,47,325,12,43,101,767,524,587,23,1,67,124,367,67,643,34,727,548,46,13,43,4,31,67,284,537) ;
foreach($ar as $key=>$value){
if($value<100){
unset($ar["$key"]) ;
}

}
if(count($ar)!==0){
echo 'наименьшее число: '.min($ar) ;
}else{
echo'Нету трехзначный чисел';
}
?>