Другие языки программирования и технологии

Составьте программы и проверьте их выполняемость на Паскале

Составьте программы и проверьте их выполняемость на Паскале:1.Заполнить массив числами и вывести его на экран в одну строку.Числа:78 65 123 -741 -52 56 45 2.Написать программу для заполнения массива из 8 элементов с клавиатуры и вывода полученного массива на экран в формате k это i элемент массива
ВМ
Виктор Молдованов
297
1) Несколько непонятно - уже в программе задать числа или ввести вручную с клавиатуры? Ладно, задам в программе:
 Program P1;  

uses crt;  

const n=7;  

      m: array [1..n] of integer = (78, 65, 123, -741, -52, 56, 45);  

var i: integer;  

begin  

clrscr;  

write ('Массив:');  

for i:=1 to n do write (' ', m[i]);  

writeln (' ');  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end.
2)
 Program P2;  

uses crt;  

const n=8;  

type mas=array [1..n] of real;  

var k: integer;  

    m: mas;  

begin  

clrscr;  

writeln ('Заполните массив с клавиатуры числами (просто вводите числа с клавиатуры). После ввода каждого из элементов массива (числа) нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной оттеляйте точкой, а не запятой.');  

for k:=1 to n do begin  

    write ('Введите ', k, '-й элемент массива: ');  

    readln (m[k]);  

    end;  

write ('Вы ввели массив:');  

for k:=1 to n do write (' ', m[k]);  

writeln (' ');  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end.
И совсем необязательно 1 и тот же вопрос задавать по нескольку раз.
Акбар Сафаров
Акбар Сафаров
43 559
Лучший ответ
1)
program p1;
const a:array[1..7]of integer=(78,65,123,-741,-52,56,45);
var i:integer; begin for i:=1 to 7 do write(a[i],' ') end.

2)
program p2;
var a:array[1..8]of integer; i:integer;
begin for i:=1 to 8 do read(a[i]); for i:=1 to 8 do write(a[i],' ') end.
Валерий Бобаченко
Валерий Бобаченко
84 024

Похожие вопросы