1)Вася.задумал ряд чисел 100,120,180,220,10,40,230,50,140,10.помочь найти 10%от каждого элемента массива
2)Дан массив из 10 элементов необходимо найти количество элементов которые больше 100.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!СРОЧНО НАДО.

1

Ответы и объяснения

2013-11-18T23:38:11+04:00
1.
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
write('Vvedite znachenie elementa: ');
readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]*0.1,' ');
end.
2.
var
a:array[1..10]of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
write('vvedite znachenie elementa: ');
readln(a[i]);
if a[i]>100 then
inc(k);
end;
writeln('Chisel, bolshih 100: ',k);
end.