блок схема - Форум
Понедельник, 05.12.2016, 07:29
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » блок схема (помогите пожалуйста сделать блок схему)
блок схема
timoxin97Дата: Четверг, 17.12.2015, 18:40 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Program bbb;
var a:array[1..3,1..7]of integer;
b:array[1..3]of integer;
i, j, s, imin, imax, max, min:integer;
begin
fori:=1to 3 do
forj:=1to 7 do
read(a[i, j]) ;
fori:=1 to 3 do
begin
S:=0;
forj:=1to 7 do
S:=S+A[i, j] ;
b:=S;
end;
max:=b[1];imax:=1;
fori:=1to 3 do
if b>max then
begin
max:=b;
imax:=i;
end;
min:=b[1];imin:=1;
fori:=1 toto 3 do
if b <min then
begin
min:=b
;
imin:=i;
end;
write('строка с наибольшей суммой элементов:') ;
forj:=1 to 7 do
write(a[imax, j], '') ;
writeln('сумма элементов:' ', max) ;
write('строка с наименьшей суммой элементов, ') ;
forj:=1to 7 do
write(a[imin, j],' ') ;
writeln('сумма элементов:', min) ;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » блок схема (помогите пожалуйста сделать блок схему)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016