Объясните как работает эта программа на паскаль const n=30; var a: array [1..n] of integer ; i, x, y: integer; s: real ; begin for i: =1 to n do readln (a [i]); x: =0; y: =0; for i: =1 to n do if a[i]> 20 then begin inc(x); y: =y+a[i]; end; s: =y/x; writeln(s); end.

👇

Ответ:

smusylolo

12.03.2022

1. Создается массив из целых, массив статический на 30 элементов.
2. В цикле со счетчиком (for) заполняется массив с клавиатуры, вводятся 30 значений.
3. Еще раз в цикле просматриваются все элементы массива и сравниваются с 20. Если больше 20, то увеличивается значение переменной x на 1 и к значению перменной y прибавляют значение этого элемента массива.
4. После окончания цикла вычисляется выводится отношение s:=x/y.

Небольшое дополнение, если элементов массива больших 20 не будет, то возникнет переполнение из-за деления на 0

4,6(12 оценок)

Открыть все ответы

Ответ:

dorisova

12.03.2022

отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики.

Еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. Не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби.

Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер.

Часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. Но у меня другое мнение. Да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. Но в чем виноват компьютер?! Человек сам крадет у себя время, а не машина.

Телевизор не полезен, потому что перед ним человек сидит пассивно. Сидит, пультом клацает, а ему показывают картинку. С компьютером другое дело! С ним все время надо действовать! Даже читать и писать все время приходится. Так даже интереснее, чем торчать у телевизора.

А еще компьютер заставляет выбирать самому то, что действительно нужно. Если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь.

Компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. Просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. И чтобы расширить возможности человека, а не сузить их.

4,8(2 оценок)

Ответ:

1945269

12.03.2022

Const
n1 = 20;
m1 = 20;

var
a: array[1..n1, 1..m1] of integer;
b: array[1..m1] of integer;
i, j, m, n: integer;

begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
end;
Writeln('Сформированный массив');
for j := 1 to m do
begin
    i := 1;
    while (i <= n) and (a[i, j] >= 0) do i := i + 1;
    if i <= n then b[j] := a[i, j] else b[j] := -99;
    Write(b[j]:4)
end;
Writeln
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
-11 -18 -42 -22 -9   2 21 15 40 -3
   4 -5 40 -13 -44 -37 43 47   1 -39
20 50 21 -18 -10   6 12 -10 43 -37
Сформированный массив
-11 -18 -42 -22 -9 -37 -99 -10 -99 -3

4,5(23 оценок)

Это интересно:

Образование-и-коммуникации

06.10.2021

Как найти расстояние между двумя точками: научимся решать задачи за считанные минуты...

Стиль-и-уход-за-собой

07.07.2021

Секреты и техники рисования идеальных бровей...

Здоровье

19.04.2020

Как бороться с прыщами во время беременности...

Дом-и-сад