По ссылке программы консольные.
Которые без динам. массивов моежет смело переносить в Pascal
Paskal массивы
Возможно я неправильно выразился.
Я попробовал сам первую задачу написать:
[syntax='pascal']
program 1;
var
i, n, minus, plus: integer;
m: array[1..n] of integer;
begin
randomize;
write('n=')
readln(n);
for i: 1 to n do
;
m = random(1000) / 10 - 50;
if m < 0 then
inc(minus);
if m > 0 then
inc(plus);
writeln;
if minus > plus then
write("minus > plus");
if minus < plus then
write("plus > minus");
if minus = plus then
write("plus = minus");
end.
[/syntax]
Заключайте код в тэги! Я больше не буду повторять.
Вот таким языком надо написать прогу. Вроде это паскаль называется. Исправьте (если неверно) и напишите решение 2,3, 4 задач, пожалуйста. Завтра уже сдать нужно!!!
Я попробовал сам первую задачу написать:
[syntax='pascal']
program 1;
var
i, n, minus, plus: integer;
m: array[1..n] of integer;
begin
randomize;
write('n=')
readln(n);
for i: 1 to n do
;
m = random(1000) / 10 - 50;
if m < 0 then
inc(minus);
if m > 0 then
inc(plus);
writeln;
if minus > plus then
write("minus > plus");
if minus < plus then
write("plus > minus");
if minus = plus then
write("plus = minus");
end.
[/syntax]
Заключайте код в тэги! Я больше не буду повторять.
Вот таким языком надо написать прогу. Вроде это паскаль называется. Исправьте (если неверно) и напишите решение 2,3, 4 задач, пожалуйста. Завтра уже сдать нужно!!!