сервис вопросов и ответовПомогите составить программу на языке PASCAL
10-11 класс|
|
В матрице X(5×5) определите произведение положительных элементов
главной диагонали.
Svetlanamilana1
31 янв. 2014 г., 3:25:42 (10 лет назад)
Anj1307
31 янв. 2014 г., 5:33:38 (10 лет назад)
var
i,j,x:integer;
a:array[1..5,1..5]of integer;
begin
x:=1;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
if i=j then x:=x*a[i,j];
end;
writeln;
end;
writeln('Ответ: ',x);
end.
Ответить
Другие вопросы из категории
В 1975 году джордж лукас приступил к созданию этого фильма. Он собрал команду одних из самых первых в киномире компьютерных фанатов и основал студию
цифровых и визуальных эфектов. Это фильм
А)"Армагедон" Б)"2001: Космическая одисея"
В)"Звёздные воины" Г)"Звёздный путь"
Читайте также
Помогите составить программу на языке PASCAL
с использованием цикла с предусловием.
2 фото это то что у меня получается,что не так?
Напишите на языках Pascal и C++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Составить программу на языке паскаль
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
Вы находитесь на странице вопроса "Помогите составить программу на языке PASCAL", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.