Задайте массив из 10 элемениов ,нечётные по номерам элементы замените на квадраты значений этих элементов

296

348

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

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

14569867

Информатика

4,6(11 оценок)

Program nechetkii; var i,n: integer; a: array[1..10]of integer; begin for i: =1 to 10 do begin a[i]: =i; if (a[i] mod 2=1) then a[i]: =a[i]*a[i]; writeln(a[i]); end; end. vrode tak

варкатоп

Информатика

4,4(22 оценок)

Program z1; var t,v: real; begin writeln('введите вес(в фунтах)'); readln(v); v: =(v*400) mod 1000; writeln('введите температуру(по фаренгейту'); readln(t); t: =(t-32)/1.8; writeln('вес=',v,'кг; температура=',t); end.