Предмет: Информатика,
автор: nifrol
Паскаль!!
Очень срочно надо сдать!
Приложения:

Ответы
Автор ответа:
1
Программа 1.
program P1;
var a,b,sum, i : Integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
sum := 0;
for i := a to b do sum := sum + i;
writeln('sum = ', sum);
end.
Программа 2.
program P2;
var arr : array[1..8] of Integer;
i, count,weight : Integer;
begin
randomize;
for i := 1 to 8 do arr[i] := Random(10) + 10;
count := 0; weight := 0;
for i := 1 to 8 do if arr[i] > 15 then begin
count := count + 1; weight := weight + arr[i];
end;
writeln('Общее к-ство ', count);
writeln('Общий вес ', weight);
end.
Похожие вопросы
Предмет: Английский язык,
автор: Арина500
Предмет: Другие предметы,
автор: dariamerzaeva
Предмет: Русский язык,
автор: vladantonov2003
Предмет: Химия,
автор: Ttggfssf
Предмет: Математика,
автор: профессорпуп