program zadagha_1;
var
a: array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite 8 chisel');
for i:=1 to 8 do read(a[i]);
sum:=0;
for i:=1 to 8 do begin
if i mod 2 <> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa elementov c nechetnim N =', sum);
end.
program zadagha_2;
var
b: array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(a);
write ('elementi > dannogo chisla: ');
for i:=1 to n do begin
if b[i]>a then write (i:4);
end;
end.
program zadacha_3;
var
a: array[1..100] of integer;
i,n,k: integer;
begin
n:=random(100);
for i:=1 to n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(k);
writeln('v massive chisly ',k, ' kratni: ');
for i:=1 to n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
1. Известен возраст группы людей в списке. Какой человек указан в списке раньше: самый старший или самый молодой? (Должны учитываться первые из людей одинакового возраста.) 2. Известны результаты (время в минутах), показанные автогонщиком — участником соревнований "Формула-1" — на каждом этапе. Известно также, что на одном этапе он занял первое место и на одном — последнее. Верно ли, что этап, который он выиграл, был раньше этапа, на котором он занял последнее место? 3. Известно количество мячей, забитых футбольной командой за каждую игру в двух чемпионатах, которое хранится в двух массивах. В каждом из чемпионатов команда сыграла 26 игр. Найти общее количество мячей, забитых командой в двух чемпионатах. 4. В одном массиве записано количество мячей, забитых футбольной командой в каждой из 20-ти игр, в другом — количество пропущенных мячей в этой же игре. Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья 5. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых автомобилей.
python
Объяснение:
5.
код:
t = list(map(int, input().split()))
i = max(t)
t.remove(i)
n = max(t)
print(i, n)
ввод:
1 2 3 4 5 6 7 8 9 0 -5 3 111 223 5 67 68 44 678 9 16 36 16
вывод:
678 223