Задать вопрос
20 мая, 20:51

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти.

uses crt;

var

mas, A: array[1 ... 10] of real;

begin

clrscr;

mas[1]:=11;

mas[5]:=33;

mas[9]:=92;

A[1]: = (mas[9]-mas[1]) * mas[5];

write (A[1]:5:0) ;

readkey;

end.

+4
Ответы (1)
  1. 20 мая, 23:19
    0
    В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]: = (mas[9]-mas[1]) * mas[5];

    В чём дело? Идём в паскаль, набираем программу, запускаем и смотрим на результат. Программа должна выдавать значение первого элемента массива A[1]: = (mas[9]-mas[1]) * mas[5]; К примеру у меня 2673
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin clrscr; mas[1]:=10; mas[5]:=27; mas[9]:=88; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]:5:0) ; readkey; end.
Ответы (2)
Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin clrscr; mas[1]:=11; mas[5]:=27; mas[9]:=89; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]:5:0) ; readkey; end.
Ответы (1)
Ана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin clrscr; mas[1]:=14; mas[5]:=29; mas[9]:=80; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]:5:0) ; readkey; end.
Ответы (1)
Определите и запишите, что будет выдавать программа по завершению. uses crt; var mas, A: array[1 ... 10] of integer; begin clrscr; mas[1]:=10; mas[5]:=25; mas[9]:=16; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]) ; readkey; end.
Ответы (1)
Var s, i:integer; Mas: array[1 ... 10] of integer; begin Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6; Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7; Mas[9]:=5; Mas[10]:=3; s:=0; for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];
Ответы (1)