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