program raf105;
var a:array[1..3,1..3] of integer;
i,j,sum:integer;
begin
writeln('Вводите 9 чисел по очереди:');
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] mod 4)=0
then sum:= sum+a[i,j]
end;
writeln('Сумма чётных элементов кратных четырём: ',sum);
end.
<u><em>Язык программирования PascalABC</em></u>
Ответ:
Program Massiv; //Заголовок программы
const n=12;
var i,m,p:integer; s: array[1..n] of integer;
begin
p:=1;
for i :=1 to n do
s[i]:= random (10,44);
for i :=1 to n do begin
if (s[i] mod 5) = 0 then p:= p * s[i];
end;
writeln(s);
if p = 1 then
write('Нет элементов кратных 5')
else
write('p = ', p);
end.
Объяснение:
программа описана в файле ворд
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
<u><em>Тестовое решение:</em></u>
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
<span>Напишите программу, которая заполняет массив из N = 10 случайными числами в
диапазоне [10,50], выводит его на экран, а затем выполняет реверс отдельно первой
и второй половин массива. При изменении значения N программа должна работать
правильно без дополнительных изменений. </span>
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
