Пожалуйста распишите задачу 1 и 3 полностью для Паскаля абс. Умоляю, полностью!! Буду очень благодарна, тк у меня спорная
5-9 класс
|
№1
uses crt;
var x: integer;
begin
clrscr;
readln (x);
if x mod(2)=0 then
writeln ('true')
else
writeln ('false');
readln ();
end.
№3
uses crt;
var arr: array [1..10] of integer; i,x: integer;
begin
clrscr;
for i:=1 to 10 do
readln (arr[i]);
x:=0;
for i:=1 to 10 do
if x<=arr[i] then
x:=arr[i];
writeln ('Max: ',x);
end.
Другие вопросы из категории
плиииз срочно помогите очень надо..
Написать программу в Pascal.
рабочий стол
окно
папка
файл
компьютер
Читайте также
2.В процессе преобразования растрового графического файла количество цветов уменьшилось с 65536 до 256.Во сколько раз уменьшился информационный объём файла?
Помогите пожалуйста-Буду очень благодарна тем кто поможет_)
.
0 0 0 0 0 0....
1 1 1 1 1 1....
0 0 0 0 0 0....
0 1 0 1 0...
1 0 1 0 1....
0 1 0 1 0....
1 0 1 0 1....
Помогите пожалуйста! Буду очень благодарна! ;)))
Создать целочисленный массив из 15 чисел. Заполнить с помощью генератора случайных чисел с элементами от -15 до 30. И вывести его на экран. Определить самый большой элемент массива и его индекс.
A (i):=random (x) -15
от -1 до х
от -15 до 30.
если разрешение экрана монитора 512х1024, глубина цвета – 24 бита.
пожалуйста, с описанием действий. тоесть что находим! буду очень благодарна
Пожалуйста, не используйте заумных проограмм, составьте её для Паскаля на уровне 9 класса. Большое спасибо.