МАССИВ...........1. Задайте случайным образом массив от 0 до 100, состоящий из 10 элементов.
2. Подсчитайте количество элементов массива, удовлетворяющих условию:<20 и >50
3. Найдите сумму этих элементов.
More Questions From This User See All
МАССИВ...........1. Задайте случайным образом массив от 0 до 100, состоящий из 10 элементов.
2. Подсчитайте количество элементов массива, удовлетворяющих условию:<20 и >50
3. Найдите сумму этих элементов.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array[1..10]of integer;
i,n:byte; s:integer;
begin
for i:=1 to 10 do a[i]:=random(101);
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do
if (a[i]<20) or (a[i]>50) then begin inc(n); s:=s+a[i]; end;
writeln(n,' ',s);
end.