Предмет: Информатика,
автор: 89064161536mama
организовать ввод чисел в массив E состоящий из 7 элементов ввод с клавиатуры
Ответы
Автор ответа:
1
var e:array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do read(e[i])
end.
Приложения:
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.
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.
а блок схему можете к этой программе?
Автор ответа:
0
var E = [];
for (let сч = 0; сч < 7; сч++)
E.push(parseInt(prompt()));
Похожие вопросы
Предмет: Другие предметы,
автор: mynameisbym
Предмет: Геометрия,
автор: vadimtv30
Предмет: Қазақ тiлi,
автор: muldagalievagulnaz57
Предмет: Геометрия,
автор: Знания
Предмет: Математика,
автор: 123ksy654
вывести элементы массива Е
найти и вывести номер минимального элемента массива К
посчитать и вывести количество нечетных элементов массива Е