Var a: array[1..100] of integer; i,n,c,h: integer; begin writeln('Введите кол-во элементов последовательности:'); readln(n); writeln('Введите последовательность:'); for i:=1 to n do begin read(a[i]); if a[i]<0 then begin c:=c+a[i]; h:=h+1; end; end; writeln(c/h); end.
Var DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer; begin readln(DepHour,DepMin,DurHour,DurMin); if DepMin+DurMin>=60 then begin ArrHour:=DepHour+DurHour+1; ArrMin:=DepMin+DurMin-60; end else begin ArrHour:=DepHour+DurHour; ArrMin:=DepMin+DurMin; end; write(ArrHour,':',ArrMin); end.
1)Составьте программу, которая находит большее из двух введенных с клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9 var a,b : integer; begin write('Enter a: '); read(a); write('Enter b: '); read(b); if a>b then writeln(a) else writeln(b); end. 2) Составьте программу, которая находит меньшее из трёх введенных чисел a, b, c и выводит его на экран. Числа 10, 4 и 9 var a,b,c : integer; begin write('Enter a: '); read(a); write('Enter b: '); read(b); write('Enter c: '); read(c); if (a<b) and (b<c) then writeln(a); if (b<c) and (c<a) then writeln(b) else writeln(c); end. 3) Составьте программу определяющую, является ли введенное с клавиатуры целое число кратным 3. var a: integer; begin write('Enter a: '); read(a); if (a mod 3) = 0 then writeln('Кратно') else writeln('Не кратно'); end.
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
end.