ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Расчеты в двумерных массивах
| Начало |
| i:=1, 4 |
| Вывод P |
| sqr(A[i,j])<16 and A[i,j]>0 |
| P:=1 |
| Конец |
| j:=1, 3 |
| Ввод A[I,j] |
| i:=1, 4 |
| j:=1, 3 |
| P:=p*A[I,j] |
program Z12;
var A:array[1..4,1..3] of integer;
i,j: byte;
P:real;
begin
cls;
writeLn(‘вводим элементы массива A:');
for i:=1 to 4 do
for j:=1 to 3 do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
P:=1;
for i:=1 to 4 do
for j:=1 to 3 do
if (sqr(A[i,j])<16) and (A[i,j]>0) then
begin
p:=p*A[i,j];
end;
writeLn('произведение элементов квадрат которых < 16 ', p);
end.
Не нашли, что искали? Воспользуйтесь поиском: