сервис вопросов и ответовРебит дам 45 баллов!!!
5-9 класс|
|
вобщем дан массив
uses crt;
var a,b,c,d:array[1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do begin
{readln (a[i])};
a[i]:=random(10);
end;
for i:=1 to 10 do begin
write (a[i]:4);
end;
нужно найти произведение всех элементов массива а.
Agisa
15 февр. 2015 г., 8:22:44 (9 лет назад)
Lfybkfyfnf
15 февр. 2015 г., 9:38:27 (9 лет назад)
это продолжение
j:=1;
for i:=1 to 10 do
j:=j*a[i];
write(j);
end.
Ответить
Другие вопросы из категории
Помогите составить программу!
в квадратном массиве (8 на 8) заменить элемент одной диагонали на единицы, а другой на нули
Читайте также
Помогите!!!! Срочно!!!! Дам 10 баллов
Вопрос:Устройство ввода звуковой информации:??
Дам 40 баллов!!!
Представьте в виде графа основные элементы графического интерфейса компьютера.
СРОЧНО ДАМ 25 БАЛЛОВ
1)Все имена существительные изменяются по падежам и числам. Слово "урок" - имя существительное. Следовательно...
2)Все ученики, которые учатся в первую смену, приходят в школу в 8 часов. Серёжа учится в первую смену. Когда приходит в школу Серёжа?
Помогите составить алгоритм по информатике К реке подошел полк солдат.В лодке катаются 2 мальчика .Необходимо перенаправить полк. В лодке
помещаются 2 мальчика или 1 солдат. дам 50 баллов
Вы находитесь на странице вопроса "Ребит дам 45 баллов!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.