1) дан массив р(n), состоящий из n вещественных чисел. заменить отрицательные элементы массива их квадратами,и новый массив переписать в s(n). : *

164

282

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

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

alex3942

Информатика

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

Program task; var i,n: longint; a: array [0..10000] of real; s: array [0..10000] of real; begin writeln('skolko elementov v massive? '); readln(n); for i: =1 to n do begin a[i]: = -50 + random(100); end; for i: =1 to n do begin if (a[i]< 0) then s[i]: =sqr(a[i]) else s[i]: =a[i]; end; for i: =1 to n do begin writeln(s[i]: 0: 0); end; readln; end.

vadhmv

Информатика

4,8(36 оценок)

Uses crt; const n=20; var p: array[1..n] of integer; s: array[1..n] of integer; i,j: integer; begin randomize; for i: =1 to n do begin p[i]: =random(40)-20; write(p[i]: 3); end; writeln; for i: =1 to n do if p[i]< 0 then p[i]: =p[i]*p[i]; for j: =1 to n do for i: =1 to n do if i=j then s[j]: =p[i]; for j: =1 to n do write(s[j]: 4); end.

veragmyr

Информатика

4,7(25 оценок)

ответ:а) var x,y: real;б) var a,b,s: real;(a,b - стороны прямоугольника, s - площадь прямоугольника)в) var k:integer;ct,co,s: real;(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)г) var kt,kk,kr:integer;ct,ck,cr,s: real;(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.Данные целочисленного (integer) типа используются для представления целых чисел.

Объяснение: