// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4
var i,x: word; a : array [1..10] of integer; Begin writeln ('Введите 10 целых чисел'); for i:=1 to 10 do Begin write (i,' число '); readln (a[i]); end; writeln; for i:=1 to 10 do Begin x:=a[i] mod 4; if x<>0 then writeln (i,' элемент таблицы не кратен 4'); end; End.
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк (столбцов) в массиве:'); Writeln('*** Исходный массив [',n,',',n,'] ***'); var a:=MatrRandom(n,n,-10,10); a.Println(4); Writeln(5*a.ColCount*'-'); var k,l:integer; Write('Введите L,K: '); Read(l,k); var lim:=a[l-1,k-1]; var s:=a.Rows.SelectMany(x->x).Where(x->x<lim).Sum; Writeln('Искомая сумма равна ',s) end.
var i,x: word;
a : array [1..10] of integer;
Begin
writeln ('Введите 10 целых чисел');
for i:=1 to 10 do
Begin
write (i,' число ');
readln (a[i]);
end;
writeln;
for i:=1 to 10 do
Begin
x:=a[i] mod 4;
if x<>0 then writeln (i,' элемент таблицы не кратен 4');
end;
End.