Регистрация
wwwraisakravets
20.12.2020 13:53
Информатика
Есть ответ 👍

Нужно написать программу в паскале возвести в квадрат элементы, не превосходящие по модулю введенное с клавиатуры число r.

138
311
Посмотреть ответы 3

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

Праемпт
Праемпт
4,6(38 оценок)

const n=10;

var a: array[1..n] of integer;

i,r: integer;

begin

write (' исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(41)-20;

write (a[i]: 3,' ')

end;

writeln;

write ('введите число: ');

readln (r);

write ('преобразованый массив: ');

for i: =1 to n do

begin

if abs(a[i]) < = r then a[i]: =a[i]*a[i];

write (a[i]: 3,' ')

end

end.

лера2042
лера2042
4,5(93 оценок)

var

  r, i: integer;

 

begin

  readln(r);

  for i : = 0 to r do write(power(i, 2), ' ');

end.

phon1
phon1
4,7(44 оценок)
Const z = 14; // размер массива  var    m: array [1..z] of integer;   i: integer;   begin for i: =1 to z do begin m[i] : = random(15,67); end; writeln('элементы массива: '); for i: =1 to z do begin    w rite(m[i],' ');     end; end.

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