Летом ребята отправились в путешествие. Вася проплыл 70 км на
пароходе, проехал 30 км на поезде и пролетел 110 км на самолете. Никита
проплыл на пароходе 90 км, проехал на поезде 10 км и пролетел на самолете
65 км. Толя пролетел на самолете 250 км, проехал поездом 15 км и проплыл
на пароходе 35 км. Петя проехал на поезде 40 км, пролетел на самолете 135
км и проплыл на пароходе 50 км.
1. Построить на основе вышеперечисленных данных электронную таблицу.
2. Добавить к таблице столбец, в котором будет отображаться общее
количество километров, которое проехал каждый из ребят.
3. Вычислить общее количество километров, которое ребята проехали на
поезде, пролетели на самолете и проплыли на пароходе (на каждом виде
транспорта по отдельности).
4. Вычислить суммарное количество километров, которое дети проехали в
сумме.
5. Определить максимальное и минимальное количество километров,
которое дети проехали на поезде
var r1, r2:real; {Задаем переменные}
c:byte;
begin {Начало программы}
write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных}
readln (r1); {Ввод данных с клавиатуры}
write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных}
readln (r2); {Ввод данных с клавиатуры}
write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных}
readln (c); {Ввод данных с клавиатуры}
if c=1 {условие}
then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении}
else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении}
end. {Конец программы}
var
n,i,m:integer;
x:real;
begin
write('Число оценок: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите оценку: ');
readln(m);
x:=x+m
end;
x:=round(x/n);
writeln('Оценка за четверть ',x)
end.
2.
var
n:integer;
a,b,c:real;
begin
write('Число a: ');
readln(a);
if a>0 then n:=1;
write('Число b: ');
readln(b);
if b>0 then n:=n+1;
write('Число c: ');
readln(c);
if c>0 then n:=n+1;
writeln('Число положительных ',n)
end.
3.
var
n,i,s:integer;
a:array of integer;
begin
write('Размер массива: ');
readln(n);
SetLength(a, n);
for i:=0 to n-1 do
begin
a[i]:=random(-3,3);
write(a[i]:3);
if a[i]<>0 then s:=s+1
end;
writeln;
write('Ненулевых элементов: ',s);
end.