Найдите количество элементов двумерного массива A[1..5,1..5] равных 1. Массив заполните случайными числами в диапазоне от -10 до 10. Вывести массив на
10-11 класс
|
экран в виде таблицы и количество элементов равных 1.
VAR
a:array[1..5,1..5]of integer;
i,j,k:integer;
begin
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if a[i,j]=1 then
k:=k+1;
end;
end;
writeln;
if k=0 then
writeln('нет =1')
else
writeln(k);
end.
Другие вопросы из категории
Стоят 4 дома, в них живут- Семен,Николай,Артур,Роман
Они : врач,художник, егерь,тренер.
1)художник рядом с тренером
2)врач рядом с художником
3)егерь левее врача
4)тренер не рядом с егерем
5)художник правее Семена
6)Роман не тренер
7) Семен рядом с Николаем
8)Артур рядом с Романом.
Ответ записать в виде первых букв имен мужчин
1.Вводим месяц
2.Вводим n
Пример
январь
3
Программа выводит апрель(высчитывает месяц 3 после января)
Программу написать через case of
нахождения S прямоугольного треугольника. ЗНАЧЕНИЯ КАТЕТОВ ВВОДЯТСЯ С КЛАВИАТУРЫ!
ПОМОГИТЕ ЗАЙКИ,,,,,
Читайте также
1) Из элементов данного массива W[1..20] создать 2 новых массива, первый из которых содержит только положительные элементы, а второй только отрицательные.
2) Заполнить СЛУЧАЙНЫМИ числами в диапазоне от 1 до 10 два массива A[20] и B[20]. Найти и вывести на экран только те элементы этих массивов и их номера, значения которых попарно совпадают.
Например, если A[2]=B[2]=4, то на экран надо вывести: Номер-2, значение-4.
3) Заменить найденный минимальный элемент числом 100 и показать на экране массив с этой заменой.
двумерном массиве размерности 3х3. Заполнить массив целыми случайными числами из
диапазона от 0 до 15.
и количество элементов с нечетными значениями.
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!