Срочно,помогите пожалуйста!!
1) дан массив из 20 элементов. Вывести только те элементы, которые меньше 10
2) С помощью цикла while найти количество чисел от А до Б, которые делятся нацело на С (А,В,С - вводит пользователь)
3) В массиве из 15 элементов найти сумму элементов, которые больше 20
Все в паскале
Ответ
0 (0 оценок)
0
NiNJaG0o 2 года назад
Светило науки - 23 ответа - 0 раз оказано помощи

Ответ:

//1.

const

M: array [1..20] of real =(-2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,0.5,0.2,11.7,11);

var i:integer;

begin

for i:= 1 to 20 do if (M[i]<10) then writeln(M[i]);

end.

//2.

var a,b,c:integer;

   min,max,count:integer;

begin

 readln(a);

 readln(b);

 readln(c);

 count:=0;

 if a<b then begin

   min:=a; max:=b

   end

 else begin

   min:=b; max:=a

 end;

 while min<=max do begin

   if (min mod c = 0) then count:=count+1;

   min:=min+1;

 end;

writeln(count);

end.

//3.

const

M: array [1..15] of real =(-2,-1,211,225,-1,-1,-1,-1,-1,-1,10,0.5,0.2,11.7,11);

var i:integer;

Sum:real;

begin

sum:=0;

for i:=1 to 15 do

  if (M[i]>20) then

    sum:=sum+M[i];

writeln(sum);

end.

Объяснение:

Остались вопросы?