Const n=5; var a: array[1..n, 1..n] of real; i, j: integer; begin //считаем массив for i:=1 to n do for j:=1 to n do readln(a[i,j]); //заменим все элементы >0 и <1 нулями for i:=1 to n do for j:=1 to n do if (a[i, j] > 0) and (a[i, j] < 1) then a[i,j] := 0; end.
Язык программирования Pascal ABC var n,k,i,j,d,c:integer; label 1,2; begin 1:writeln('Количество месяцев в календаре планеты Мульти:'); readln(n); if (n>109)or(n<1) then begin writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.'); goto 1; end; 2:writeln('Номер дня на который приходится первое число первого месяца нового года:'); readln(k); if (k>7)or(k<1) then begin writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.'); goto 2; end; d:=k; for i:=1 to n do begin for j:=1+(k-1) to 30 do begin if (d=5)and(j=13) then c:=c+1; d:=d+1; if d>7 then d:=1; end; k:=1; end; writeln('Количество несчастливых дней в этом году: ',c); end.
var
a: array[1..n, 1..n] of real;
i, j: integer;
begin
//считаем массив
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
//заменим все элементы >0 и <1 нулями
for i:=1 to n do
for j:=1 to n do
if (a[i, j] > 0) and (a[i, j] < 1) then
a[i,j] := 0;
end.