Регистрация
Kotova111111777
29.01.2022 22:14
Информатика
Есть ответ 👍

Информатика 10 класс
нужно написать программу паскаль и блок-схему :
выполнить расчёт функции, где t меняет значение от 1 до 5 с шагом 0,5
формула: S=vt+at²/2​

194
368
Посмотреть ответы 2

Ответы на вопрос:

Никейти
Никейти
4,8(94 оценок)
Сорри но я не знаю : (
Polinazaya02
Polinazaya02
4,8(78 оценок)

var a: array[1..10]of integer;

i,max: integer;

begin

for i: =1 to 10 do readln(a[i]);

max: =a[1];

for i: =2 to 10 do if max< a[i] then max: =a[i];

for i: =1 to 10 do if a[i]> 0 then a[i]: =max;

writeln;

for i: =1 to 10 do write(a[i],' ');

end.

Популярно: Информатика