Var i, j, sum: integer; a: array[1..3, 1..4] of integer; begin writeln('Массив: '); for i := 1 to 3 do begin for j := 1 to 4 do begin a[i, j] := random(10); sum := sum + a[i, j]; write(a[i, j]:4); end; writeln; end; write('Сумма элементов массива: ', sum); end.
Var n:integer; begin repeat read(n); if n<1 or n>12 then writeln('Неверный номер месяца'); until n=>1 and n<=12 ; case n of 1: writeln('Этот месяц - Январь, время года - зима.'); 2: writeln('Этот месяц - Февраль, время года - зима.'); 3: writeln('Этот месяц - Март, время года - весна.'); 4: writeln('Этот месяц - Апрель, время года - весна.'); 5: writeln('Этот месяц - Май, время года - весна.'); 6: writeln('Этот месяц - Июнь, время года - лето.); 7: writeln('Этот месяц - Июль, время года - лето.'); 8: writeln('Этот месяц - Август, время года - лето.'); 9: writeln('Этот месяц - Сентябрь, время года - осень.'); 10: writeln('Этот месяц - Октябрь, время года - осень.'); 11: writeln('Этот месяц - Ноябрь, время года - осень.'); 12: writeln('Этот месяц - Декабрь, время года - зима.'); end; end.
Демонстрация позволяет запускать файл в режиме показа слайдов, не запуская PowerPoint. Microsoft Office PowerPoint — программа подготовки презентаций, являющаяся частью Microsoft Office. Материалы, подготовленные с предназначены для отображения на большом экране — через проектор, либо телевизионный экран большого размера.Переход на следующий слайд презентации можно сделать нажав левую клавишу мышки или стрелочку вправо на клавиатуре для перехода к следующему слайду либо стрелочку влево для перехода к предыдущему слайду.
a: array[1..3, 1..4] of integer;
begin
writeln('Массив: ');
for i := 1 to 3 do begin
for j := 1 to 4 do begin
a[i, j] := random(10);
sum := sum + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
write('Сумма элементов массива: ', sum);
end.