Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.
А где варианты ответов?
а по логике от 7,1 до 7,9
"Говорильный" аппарат,
Модный гаджет,связи рад.
Фото,видео снимает,
На звонки он отвечает.
( Телефон)
К празднику, всегда "накрыт",
Полон явств и каждый сыт,
Я бюро и секретер,
Есть компьютерный размер.
<span> ( Стол)
</span>Важных данных я хранитель,
Информации носитель,
Гибкая,так что же это?
Я магнитная ?(Дискета)
Я блокнот и память я,
Есть и электронная.
Записи я все веду,
Всё фиксирую и жду.
<span> </span> (Записная книжка)
Не пищу и не шуршу,
А с компьютером-дружу.
Я курсором управляю,
И командам помогаю.
(Мышка)
Осенью,я всех встречаю.
Летом,просто отдыхаю.
Весь учебный год-учу,
Дарить знания хочу.
(Школа)
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.