По составить программу с дан целочисленный массив с числом элементов n и вывести из него нечетные элементы и их сумму. в паскале а если еще можно то блок схему)
Program mas; const n=4; // число элементов var a: array [1..n] of integer; //массив i, sum: integer; //переменные begin //начало sum:=0; // сумма=0 for i:=1 to n do readln(a[i]); //вводим массив for i:=1 to n do //цикл if(a[i] mod 2 <>0) then //условие нечетности begin writeln(a[i]); //выводим нечетные sum:=sum+a[i]; //считаем сумму end; writeln(sum); //выводим сумму end. //конец
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10;
var t: array[1..m] of integer; i, n, nm, sm: integer;
begin //Заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию задачи for i := 1 to m do begin t[i] := random(-20, 20);write(t[i]:4); if (i > 1) and (i <= m) then if t[i] > t[i - 1] then n := n + 1 else if t[i] < t[i - 1] then begin sm := sm + t[i];nm := nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
Пользовательский интерфейс - это совокупность средств и правил взаимодействия человека и компьютера. взаимодействие человека и компьютера в наши дни строится на основе объектно-ориентированного графического интерфейса, в котором: все объекты представляются в виде значков; оперирование объектами осуществляется в окнах; основным элементом программного является меню; основным элементом аппаратного являются различные манипуляторы. информационное пространство пользователя - это информационные ресурсы (файлы с программами, документы, web-сайты, фотографии, видеофрагменты и доступные пользователю при работе на компьютере.
const n=4; // число элементов
var a: array [1..n] of integer; //массив
i, sum: integer; //переменные
begin //начало
sum:=0; // сумма=0
for i:=1 to n do readln(a[i]); //вводим массив
for i:=1 to n do //цикл
if(a[i] mod 2 <>0) then //условие нечетности
begin
writeln(a[i]); //выводим нечетные
sum:=sum+a[i]; //считаем сумму
end;
writeln(sum); //выводим сумму
end. //конец