Написать программу поиска чисел , лежащих в интервале от -5 до 5, в последовательности чисел, вводимых с клавиатуры, предшествующих первому ведённому нулю. контрольный пример 1, 10, -4 , 5, -16, 5, использовать именно c++ , цикл for
Program znanija_com; const n = 5; m = 5; rnd = 9; type tArray = array[1..n, 1..m] of integer; var arr : tArray; i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer; begin randomize; writeln ('Исходная матрица:'); for i:=1 to n do begin for j:=1 to m do begin arr[i,j] := random(rnd); if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1 else sum_nch := sum_nch + 1; write(arr[i, j], ' '); end; writeln(); end; for i:=1 to n do sum_diag := sum_diag + arr[i,i]; max_num := arr[1,1]; max_index_1 := 1; max_index_2 := 1; for i:=1 to n do begin for j:=1 to m do begin if arr[i, j] > max_num then begin max_num := arr[i, j]; max_index_1 := i; max_index_2 := j; end; end; end; writeln('Колечество четных элементов равно ', sum_ch); writeln('Колечество нечетных элементов равно ', sum_nch); writeln('Сумма главной диаганили равна ', sum_diag); writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']'); readln(); end.
And (энд) - И end (энд) - конец nil (нил) - нуль set (сет) - множество array (эрей) - массив file (файл) - файл not (нот) - не then (зен) - то begin (бегин) - начало for (фo) - для of (оф) - из to (ту) - увеличивая до case (кейс) - вариант while (вайл) - пока downto (даунту)- уменьшая до record (рикод) - запись with (вис) - с function (фанкшн)- функция or (ор) - или type (тайп) - тип const (конст) - константа go to (гоу ту)- переход на packed (пэкт) - упаковать until (антил) - до div (див) - разделить if (иф) - если procedure() - процедура var (вар) - переменная do (ду) - выполнить in (ин) - в program (програм) - программа else (элс) - иначе mod (мод) - модуль repeat (рипит) - повторять
const
n = 5;
m = 5;
rnd = 9;
type
tArray = array[1..n, 1..m] of integer;
var
arr : tArray;
i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
randomize;
writeln ('Исходная матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
arr[i,j] := random(rnd);
if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
else sum_nch := sum_nch + 1;
write(arr[i, j], ' ');
end;
writeln();
end;
for i:=1 to n do
sum_diag := sum_diag + arr[i,i];
max_num := arr[1,1];
max_index_1 := 1;
max_index_2 := 1;
for i:=1 to n do begin
for j:=1 to m do begin
if arr[i, j] > max_num then begin
max_num := arr[i, j];
max_index_1 := i;
max_index_2 := j;
end;
end;
end;
writeln('Колечество четных элементов равно ', sum_ch);
writeln('Колечество нечетных элементов равно ', sum_nch);
writeln('Сумма главной диаганили равна ', sum_diag);
writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
readln();
end.