Регистрация
Natsha88
16.10.2022 18:18
Информатика
Есть ответ 👍

Составить программу: сформулировать массив из 12 произвольных чисел.определить сумму квадратов элементов с чётными индексами. результат вывести на экран.

260
272
Посмотреть ответы 2

Ответы на вопрос:

MaksN1203
MaksN1203
4,6(9 оценок)

var a: array [1..100] of integer; i,n,s: integer; begin  randomize;   n: =12;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;

  for i: = 1 to n do begin      if i mod 2 =0 then

          s: =s+a[i];   end;   writeln(s);   end.

LizaZZ6
LizaZZ6
4,5(10 оценок)
User crt; r,x: integer; begin readln(x); r=x*(5/8); writln(r); end.

Популярно: Информатика