если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
begin
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
end;
Ответ дал: Гость
в1+в2=5
(в1+в2+в3)/3=3
(5+в3)/3=3
5+в3=9
в3=4
Ответ дал: Гость
строку наоборот?
var s: string;
i: integer;
begin
read(s);
for i: = length(s) downto 1 do
s1: = s1+s[i];
writeln(s1);
end.
Ответ дал: Гость
program summa;
uses crt;
var i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.
вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину
Популярные вопросы