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

2013-05-29T20:31:59+04:00

uses crt;

var i,s:integer;

a:array[1..13] of integer;

begin

randomize;

s:=0;

for i:=1 to 13 do begin

a[i]:=random(15)+0;

s:=s+sqr(a[i]);

end;

writeln(s);

end.

 

писал без компилятора. похоже на правду.

2013-05-30T01:12:40+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program wonder19;
uses crt;
const n = 13;
var
  a:array[1..n] of integer;
  i,sum:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  Randomize;
  for i:=1 to n do
    begin
      a[i]:=random(100);
      sum:=sum+a[i];
      writeln('A[',i,']=',a[i]);
    end;
  writeln('Сумма квадратов: ',sum);
end.