ПОДСКАЖИТЕ ПОЖАЛУЙСТА(МАССИВ В ПАСКАЛЕ)!Дана задача :Дан массив A вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив B из положительных элементов массива A, имеющих четный индекс. На...
ПОДСКАЖИТЕ ПОЖАЛУЙСТА(МАССИВ В ПАСКАЛЕ)!
Дана задача :
Дан массив A вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив B из положительных элементов массива A, имеющих четный индекс. Найти сумму квадратов элементов нового массива.
Есть решение:
var
mas, c: array[1..20]of real;
i, c_n: integer;
s: real;
begin
randomize;
for i := 1 to 20 do
begin
mas[i] := random(100) - 50;
if (mas[i] > 0) and (i mod 2 = 0)
then begin c_n := c_n + 1;
c[c_n] := mas[i];
write(c[c_n], ' ');
s := s + c[c_n] * c[c_n];
end; end; writeln(); writeln('S = ', s);end.
ПОДСКАЖИТЕ ПОЖАЛУЙСТА! КАК ВЫВЕСТИ НА ЭКРАН ПЕРВОНАЧАЛЬНЫЙ МАССИВ, в добавок к этому решению???
Гость
Ответ(ы) на вопрос:
ГостьСказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
a, b: array[1..20]of integer;
i, s,n: integer;
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
if (a[i] > 0) and (i mod 2 = 0) then
begin
n:=n+1;
b[n]:= a[i];
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
Не нашли ответ?
Похожие вопросы