89064161536mama
можете дорешать пожалуйста?сформировать новый массив К состоящий из элементов которые равны квадратам элементов массива Е вывести элементы массива Е найти и вывести номер минимального элемента массива К посчитать и вывести количество нечетных элементов массива Е
elenaklon
const n=7; var e,k:array [1..n] of integer; i,a,b,m:integer; begin for i:= 1 to n do begin read(e[i]); k[i]:=e[i]*e[i]; if e[i] mod 2 <> 0 then a:=a+1 end; write ('Массив Е: '); for i:= 1 to n do write(e[i],' '); writeln; m:=k[1]; b:=1; for i:= 2 to n do if k[i] < m then begin m:=k[i]; b:=i end; writeln ('Номер минимального элемента массива К: ',b); writeln ('Количество нечётных элементов массива Е: ',a) end.
Answers & Comments
var e:array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do read(e[i])
end.
вывести элементы массива Е
найти и вывести номер минимального элемента массива К
посчитать и вывести количество нечетных элементов массива Е
var e,k:array [1..n] of integer;
i,a,b,m:integer;
begin
for i:= 1 to n do
begin
read(e[i]);
k[i]:=e[i]*e[i];
if e[i] mod 2 <> 0 then a:=a+1
end;
write ('Массив Е: ');
for i:= 1 to n do write(e[i],' ');
writeln;
m:=k[1];
b:=1;
for i:= 2 to n do
if k[i] < m then
begin
m:=k[i];
b:=i
end;
writeln ('Номер минимального элемента массива К: ',b);
writeln ('Количество нечётных элементов массива Е: ',a)
end.