Решите ! 1) составьте программу вычисления силы давления, действующей на пол со стороны стола массой - id521641320221011 от vladik28092006 11.10.2022 02:16

Question

Информатика: Решите ! 1) составьте программу вычисления силы давления, действующей на пол со стороны стола массой m, если суммарная площадь (s) опоры ножек стола 100 см, пользуясь формулой, где g=9,8 2) известны сопротивления двух не соединённых друг с другом участков электрической цепи и напряжение на каждом из них. по какому участку протекаете меньший ток? 3) написать программу, которая бы по введённому номеру единицы измерения (1-килограмм, 2-миллиграмм, 3-грамм, 4-тонна, 5-центнер ) и массе м выдавала бы

vladik28092006 · Accepted Answer

Var
a, b, s:Integer;
tab: array [1..15] of Integer;

begin
randomize;
for a := 1 to 15 do
begin
tab[a] := random(-15, 15);
writeln(a, ' - элемент = ', tab[a]);
end;
b := tab[1]; s:=0;
for a := 1 to 15 do
begin
if tab [a] > b then b := tab[a];
s:=s+tab[a];
end;
writeln('наибольший элемент массива = ', b);
writeln('s = ',s);
end.

Пример:
1 - элемент = 15
2 - элемент = -10
3 - элемент = 5
4 - элемент = -6
5 - элемент = -14
6 - элемент = -1
7 - элемент = 9
8 - элемент = -7
9 - элемент = 1
10 - элемент = 15
11 - элемент = -4
12 - элемент = -5
13 - элемент = -6
14 - элемент = 7
15 - элемент = 10
наибольший элемент массива = 15
s = 9

MOGZ ответил