Помогите,пожалуйста,написать программу по информатике.Вот такое условие:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.

2

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

2013-11-21T00:46:58+04:00
В общем виде так(выводит вектор случайных чисел, сумму чисел<10 и сумму чисел кратных 3):

program test;
var
arr:array[1..40] of integer;
i,sum1,sum2:integer;
begin
for i:=1 to 40 do
begin
 arr[i]:=random(21);
 write(arr[i],' ');
 if arr[i]<=10 then sum1:=sum1+arr[i];
 if (arr[i] mod 3) = 0 then sum2:=sum2+arr[i];
end;
writeln;
writeln(sum1);
writeln(sum2);
readln;
end.

2013-11-21T00:47:22+04:00
Program kol;
uses crt;
var
n:array [1..40] of integer;
sum10,sum3,i:integer;
begin
 randomize;
for i:=1 to 40 do begin
n[i]:=random(20);
end;
 for i:=1 to 40 do begin
if (n[i] mod 3 =0) then
 begin
sum3:=sum3+n[i];
end;
end;
 for i:=1 to 40 do
begin if (n[i]<=10) then
begin
sum10:=sum10+n[i];
 end;
 end;
 writeln('Сумма кратных трем = ',sum3);
writeln('Сумма не превищающих 10 = ',sum10);
end.