var A: array [0..3] of real; //Объявляем массив действ. чисел (измените, как надо тут) i: byte; //Объявляем переменную типа Byte, больше всё равно не надо, так незачем и память тратить
begin //Начало программы for i := 0 to 3 do //Заполняем массив числами с клавиатуры... readln(a[i]); //...заполняем for i := 1 to 3 do //Проходимся по массиву снова, от первого до последнего элемента write(a[i], ' '); //Выводим элемент с индексом i end. //Конец программы
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
