Предмет: Информатика, автор: 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.

Похожие вопросы
Предмет: Математика, автор: профессорпуп