1) дан массив Р(N), состоящий из N вещественных чисел. Заменить отрицательные элементы массива их квадратами,и новый массив переписать в S(N).
5-9 класс
|
ПОМОГИТЕЕЕ СРОЧНОО:*
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.
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.
помогите пожалуйстаа:)
Другие вопросы из категории
Читайте также
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1. Дан массив, найти произведение отрицательных элементов массива.
2. Дан массив, заменить все отрицательные элементы массива их модулями
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.