помогите решить в Паскале
5-9 класс
|
const
n = 30;
var
i: integer;
a, d: array[1..n]of integer;
begin
for i := 1 to n do
begin
d[i] := random(100);
if i <= 10 then
a[i] := d[i] + i
else
a[i] := d[i] - i;
write(d[i]:4, ' ');
end;
writeln();
for i := 1 to n do
write(a[i]:4, ' ');
end.
Другие вопросы из категории
[Компьютерные расширения]
Папа Дяди Федора очень любит кино. Помоги ему выбрать форматы файлов, которые являются контейнерами для хранения видеофильмов.
3GP
AIF
MKV
M4A
AVI
TIFF
WAV
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Очень надо
нужно проверку помочь сделать
Читайте также
удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)
Даны пять чисел,
каждое из которых по модулю не превышает ста. Вычислить максимум среди
отрицательных из них.
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.