Автор What difference задал вопрос в разделе Другие языки и технологии
Напишите пожалуйста программы для Pascal ABC: и получил лучший ответ
Ответ от Андрей[гуру]
Вот так будет правильней твое первое задание
var a:array[1..20] of integer;
sum10,sum3,i:integer;
begin
writeLn('Массив из 20 целых чисел');
for i:=1 to 20 do begin
a:= random(50);
write(A:3);
end;
writeLn;
writeLn('Числа не превышаюшие 10');
for i:=1 to 20 do begin
if a <= 10 then begin write(a:3);end;
if a <= 10 then begin sum10:=sum10 + a;end;
end;
writeLn;
writeLn('Числа кратные 3');
for i:=1 to 20 do begin
if a mod 3 = 0 then begin write(a:3);end;
if a mod 3 = 0 then begin sum3:= sum3+ a;end;
end;
writeLn;
writeln('Сумма чисел больше десяти = ',sum10);
writeln('Сумма чисел кратных трём =',sum3);
end.
Второе по ходу не правильно написано нужно кое что исправить
1) for i:=0 to 20 do if a [ i]<10 then summ1:=summ1+a [ i]; if a[ i] mod 3=0 then summ2:=summ2+a[ i]; writeln(summ1,summ2); дальше по аналогии
program nr1; var a:array[1..50] of integer; sumten,sumthree,i:integer; begin randomize; for i:=1 to 50 do begin a[ i ]:= random(20); if a[ i ] <= 10 then sumten:=sumten + a[ i ]; if a[ i ] mod 3 = 0 then sumthree:= sumthree+ a[ i ]; if i mod 10=0 then writeln (a [ i ], ' ') else write(a[ i ], ' '); end; writeln; if sumten>0 then writeln(sumten,'- Сумма чисел больше десяти') else writeln('Чисел больше десяти нету'); if sumthree>0 then writeln(sumthree,'-Сумма чисел кратных трём') else writeln('Чисел кратных трём нету'); end. program nr2; const a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36); var i:integer; f:real; begin f:=0; for i:=1 to 10 do f:=f+a; f:=f/10; writeln('Средняя температура: ',f:4:2); readln; end.