На входе два числа а и б
далее проверяем
если а меньше б
то минимум равен а
иначе минимум равен б
в конце выводим минимум
и завершаем программу
Ответ:
program p_1;
const n=15;
var i:integer;
p:real;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(130)-50;
writeln('a[',i,'] = ',a[i])
end;
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln('p = ',p)
end.
1) Подключить приставку к компьютеру при помощи мини USB-кабель,
2) Подтвердить запрос на экране приставки на передачу данных через USB.
3) Осуществить поиск игр в интернете посредством любого интернет-поисковика (для поиска необходимо заранее определиться с форматом игр, и задать в поисковике какой именно формат игр скачивать, например «скачать игры mega drive»).
4) Скачать архив с играми на компьютер.
5) Разархивировать его.
6) Скопировать c заменой (при необходимости) скачанные и разархивированные игры в папку "Game" (или в папку с соответствующим расширением игр).
7) Отключить приставку от компьютера.
8) Зайти в папку "Game" (или в папку с соответствующим расширением игр) и запустить скачанную игру.
ПОКРАЙНЕЙ МЕРЕ ПРОЧИТАЛ В ИНТЕРНЕТЕ))
Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
<span>end.</span>