Почта Об авторе Поиск Почта

Пообщаемся?
Ответь на вопрос
Как учителя должны обращаться к учащимся
Всего ответов: 502
1. Написать процедуры по вводу и выводу массива на экран. Используя эти процедуры создать массив A и массив С. Сформировать массив В=А+С и вывести его на экран
program ff;
var a,c,b: array [1..5,1..4] of integer; i,j,e,h: integer;

 procedure vvod(var x:array [1..5,1..4] of integer);
 begin
   for j:=1 to 4 do
        for i:=1 to 5 do
        x[i,j]:=random(10);
 end;
 
procedure vivod(var x:array [1..5,1..4] of integer);
 begin
   for j:=1 to 4 do begin
   for i:=1 to 5 do begin
   write(x[i,j], ' '); end;
   writeln; end;
 end;

BEGIN
   randomize;
   vvod(a);   WRITELN('Массив А');     vivod(a);
   vvod(c);   WRITELN('Массив C');     vivod(c);
   for j:=1 to 4 do
        for i:=1 to 5 do
        b[i,j]:=a[i,j]+c[i,j];
    WRITELN(' Массив B');       vivod(b);
END.


Поиск
Новости RSS

Полезные ссылки:

Cайт лицея г. Кирово-Чепецка

Электронный дневник

Помощь при Интернет угрозах

ФИПИ

Общероссийский рейтинг школьных сайтов

Дистанционное обучение Фоксфорд

Конструктор сайтов - uCoz
Обратная связь

Контактные данные:
Фирюлина Надежда Витальевна

e-mail: firyulinanv@yandex.ru, firyulinanv@mail.ru

МБОУ "Лицей", г. Кирово-Чепецк,
Кировская обл. Сайт Лицея
Схема проезда на Яндекс Картах

21.09.2017   06:06

Победитель конкурса - Лучший сайт педагога 2017
Информация о сайте
© 2011-2017
Использование материалов данного
сайта только с указанием ссылки
на источник.


На связи: 1
Зашли в гости: 1
Пользователей: 0


Для добавления необходима авторизация