Склавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на экран все элементы массива.которые стгят на не четных номерах и найти их сумму
Const n=5; var a:array[1..n] of integer; i,p:integer; begin for i:=1 to n do begin write ('Введите ',i,' элемент массива: '); readln (a[i]); end; WRITELN; write ('Массив: '); for i:=1 to n do if i mod 2 <> 0 then begin write (a[i],' '); p:=p+a[i]; end; WRITELN; write ('Сумма = ',p); end.
Uses crt; const n = 15; var i, imin, imax, m, min, max, j: integer; a: array[1..n]of integer; begin Writeln('Введите числа в массив'); for i := 1 to n do readln(a[i]); for i := 1 to n do write(a[i], ' '); min := a[1]; max := a[1]; imin := 1; imax := 1; for j := 1 to n do begin if(a[j] > max) then begin max := a[j]; imax := j; end; if(a[j] < min) then begin min := a[j]; imin := j; end; end; writeln(); writeln('индекс минимального элемента ', imin, ' индекс максимального элемента ', imax); m := abs(imin - imax); Writeln(); Writeln('Кол-во элементов между макс. и мин. элементами ', m - 1); end.
Задача 7. ВОДОЛАЗКА Задача 2. после 6 применений 64 четных цифры (после каждого применения их количество увеличивается в 2 раза) Задача 1. не может быть Даша второй, т.к. это утверждение в 4 и 5 строках. Не может быть третьей Ира (предполагается в 3 и 5 строках). Значит первая Маша. А Даша и Ира - не призеры. Из 4-й строки получаем. что и Боря не призер. Из 1 и 3 строки получаем, что Вася - не призер (т.к. указано что Вася второй и Вася третий). Значит призер Таня (не первая и не третья, значит - вторая). Из 2 строки получаем, что и Гена не призер. Остается Антон - третий ответ: Маша, Таня, Антон Задача 3. Всего можно составить 60 трехзначных чисел. Числе. меньших 200, 12. Вероятность 12/60=0,2 Задача 9. 16 Задача 4. Можно (Земля-Марс-юпитер-Венера-Меркурий) Задача 6. 370 343 640 613 910 901 271 253 550
var a:array[1..n] of integer;
i,p:integer;
begin
for i:=1 to n do
begin
write ('Введите ',i,' элемент массива: ');
readln (a[i]);
end;
WRITELN;
write ('Массив: ');
for i:=1 to n do
if i mod 2 <> 0 then
begin
write (a[i],' ');
p:=p+a[i];
end;
WRITELN;
write ('Сумма = ',p);
end.