сервис вопросов и ответовВ программе Pascal ABC
10-11 класс|
|
Помогите составить программы
Прикрепленные изображения
Fkmabz123
17 марта 2015 г., 17:08:22 (9 лет назад)
Alenabori2013
17 марта 2015 г., 19:49:01 (9 лет назад)
2)
const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
s := 1;
for i := 1 to n do begin
a[i] := random(5);
write(a[i], ' ');
if(a[i] > 1) then s := s * a[i];
end;
writeln;
writeln('Произведение эл. > 1 : ', s);
end.
3)
const n = 8;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := 100000 + random(10000);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольшее кол-во населения: ', max);
end.
Ответить
Другие вопросы из категории
Укажите минимальный объем памяти (в килобайтах), достаточный для хранения любого растрового изображения размером 32х32 пикселя, если известно, что в
изображении используется палитра из 256 цветов. Саму палитру хранить не нужно.
Если можно то само решение напишите
Меняется ли целевое содержание при кодировании информации?
а) в зависимости от степени кодирования
Помогите пожалуйста.
Нужно задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем более одного раза, при этом каждое найденное значение должно быть распечатано столько раз, сколько оно встречается.
компания по снабжению электроэнергией взимает плату с клиента по тарифу :35 руб-1 кВт/ч, если потребление не выше 500 кВт;70 руб-1 кВт/ч, если потребление
от 500 кВт- 1000 кВт;150 руб-1 кВт/ч, если потребление выше 1000 кВт. Посчитать оплату для десяти клиентов.
Читайте также
среди чисел от -10 до 50 найти кол-во чисел оканчивающихся на 8.
Программа Pascal ABC
Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal ABC! Надо записать в файл 100 случайных чисел и посчитать сколько
среди них нулей! Пожалуйста!
Помогите пожалуйста. Нужно решить через программу Pascal ABC
Определить объем цилиндра и площадь его полной поверхности, если известны радиус основания и высота цилиндра.
Формулы:
Добрый вечер, помогите мне!
Нужно написать код для программы Pascal ABC, нужно написать код для решения этого уравнения. Спасибо!
Вы находитесь на странице вопроса "В программе Pascal ABC", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.