Значит так...очередная нудная программа с простым алгоритмом.
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test;
uses crt;
var
arr:array[1..8,1..8] of integer;
i,j,cou,pr,s,sum:integer;
begin
clrscr;
randomize;
pr:=1;
s:=7;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
arr[i,j]:=random(127)+2;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (arr[i,j]>18) and (arr[i,j]<60) then
begin
cou:=cou+1;
arr[i,j]:=0;
end;
if i=j then
begin
pr:=pr+arr[i,j];
write(arr[i,j],' ');
end;
if j=s then
sum:=sum+arr[i,j];
end;
writeln;writeln;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(arr[i,j],' ');
writeln;
end;
writeln;
writeln(cou);
writeln(pr);
writeln(sum);
readln;
end.
Алгоритм Линейный Потому-что Действие идет один за другим и отсуствует разделения на действия
Спортивные игры
1)баскетбол
2)волейбол
3)футбол
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
Делал на 1С, но при желании можно свои поставить операторы (своего языка, главное алгоритм))))
Процедура КнопкаВыполнитьНажатие(Кнопка)
НужноСочинитьПесенок = 2019;
ПесенокВДень = 5;
СочинилПесенок = 0;
КоличествоДней = 0;
Пока СочинилПесенок < НужноСочинитьПесенок Цикл
Если (СочинилПесенок + ПесенокВДень) > НужноСочинитьПесенок Тогда ПесенокВДень = НужноСочинитьПесенок - СочинилПесенок;
КонецЕсли;
СочинилПесенок = СочинилПесенок + ПесенокВДень;
КоличествоДней = КоличествоДней + 1;
Сообщить(Строка(КоличествоДней)+" день(ей) сочинил "+Строка(ПесенокВДень)+ " песенок. Всего сочинил "+Строка(СочинилПесенок));
ПесенокВДень = ПесенокВДень + 1;
КонецЦикла;
Сообщить("Понадобилось "+Строка(КоличествоДней)+ " дней");
КонецПроцедуры
Сообщения:
1 день(ей) сочинил 5 песенок. Всего сочинил 5
2 день(ей) сочинил 6 песенок. Всего сочинил 11
3 день(ей) сочинил 7 песенок. Всего сочинил 18
.......
57 день(ей) сочинил 61 песенок. Всего сочинил 1 881
58 день(ей) сочинил 62 песенок. Всего сочинил 1 943
59 день(ей) сочинил 63 песенок. Всего сочинил 2 006
60 день(ей) сочинил 13 песенок. Всего сочинил 2 019
Понадобилось 60 дней