Задать вопрос
1 июля, 19:49

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

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.

+3
Ответы (1)
  1. 1 июля, 19:56
    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)