Pascal help me pls ...

Задачи в паскале, кто шарит сделайте дам +94.
Спасибо!!!

1. Создать линейный массив из 50 - ти случайных чисел в интервале от -300 до 1000 и найти максимальное (наибольшей, хромает перевод с укр. яз.) элемент этого массива кратный 12.

2. Создать линейный массив из 20 - ти случайных чисел в интервале от -1200 до 700 и вывести на экран все элементы этого массива кратные 11.

3. Создать линейный массив из 26 - ти случайных чисел в интервале от -1120 до 600 и вывести на экран все дополнительные элементы этого массива кратные 12.

Niki, не сочти за флуд че такое паскал?))

[quote name='PusseG']Niki, не сочти за флуд че такое паскал?))[/quote]

Программисты ей пользуются

Паскаль - язык программирования

Программа программирование, я закинул ее когда узнал что мне за семестр 3 балла

ну паскаль эт программа для програмирование типо для начинающих )
сейчас попробую сделать задачи)

Числа какие? real, integer?

integer )

попробую щас решить как раз в школе на информатике делаем одни пятёрки навалом за паскаль

[quote="Niki;324517"]от -300 до 1000[/quote]

это -300 или тире?)

LifeIsArt, -300

Niki, я могу спросить у учителя завтра на ИКТ и она те решит все что угодно.

LifeIsArt, минус 300

первое сделал вроде бы,
правильно?
program exam1;
const
n = 50;
type
mas = array[1..n] of integer;
var
a:mas; max,i:integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(-300,1000);
max:=0;
for i:=1 to n do
begin
if (a[i] mod 12 = 0) and (a[i]<>0) then
if a[i] > max then max:=a[i]
end;
if max = 0 then writeln('нет чисел, кратных 12')
else
writeln(max)
end.

Добавлено через 25 секунд
[quote name='Rockefeller']Niki, я могу спросить у учителя завтра на ИКТ и она те решит все что угодно.[/quote]

мне завтра сдать надо уже(

[quote name='Niki']LifeIsArt, минус 300

первое сделал вроде бы,
правильно?
program exam1;
const
n = 50;
type
mas = array[1..n] of integer;
var
a:mas; max,i:integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(-300,1000);
max:=0;
for i:=1 to n do
begin
if (a[i] mod 12 = 0) and (a[i]<>0) then
if a[i] > max then max:=a[i]
end;
if max = 0 then writeln('нет чисел, кратных 12')
else
writeln(max)
end.

Добавлено через 25 секунд


мне завтра сдать надо уже([/quote]

А не легче ли тебе написать

mas=Array [1...50]

?

Добавлено через 7 минут
[quote name='PusseG']Niki, нихухры себе o_O
Господи помилуй какие задачи :О[/quote]

вы такие тоже будете изучать, когда нибудь)

Как правильно написать рандомный промежуток? вот этот a[i]:=random(-300,1000);

И вот первая ошибка, a[i]:=random(-300,1000);

Там должно быть одно число.

[quote name='CAH4EzZz']И вот первая ошибка, a[i]:=random(-300,1000);

Там должно быть одно число.[/quote]

я выше написал, как ее исправить?

random(1300)-300;
вот так вот правильнее будет

я вроде 2 решил только оно не все числа выдает)
сейчас до делаю)

Добавлено через 3 минуты
у меня есть типо учебника по програмированию могу кинуть там написано все подробно )