Восстановите текст программы ( вставте пропущенные обозначения ) var I:integer;x:integer; y, q:integer; a:string;begin i:=o;[обнуление переменных]x:=0[ обнуление переменных]y:=0;[обнуление переменных]writeln ("Как вас зовут?Введите ваше имя русскими буквами-') ;[вывод заданного текста на экран]readin (a);[ввод переменной, в которой храниться имя]writeln ('Введите количество расчетных циклов-?); [ вывод заданного текста на экран]readin (i); [ввод переменной, указывающей количество повторений]for vas z:= 1 to I dobeginwriteln ( 'введите х- '); [вывод заданного текста на экран]readin; [ввод переменной]writeln ('введите у-'); [ вывод заданного текста на экран](у); [ввод переменной]q:=q+x+y; [вычисление суммы]end;('Уважаемый', а, 'Сумма всех введённый чисел=', q, ) ;end.

Информатика

Ответить

Ответы

achernakov

07.09.2021

Видимо у вас 2 условия, то есть 2 разных задачи:
1-я задача: ЯБЛОК НЕ БОЛЬШЕ, ЧЕМ ГРУШ

2-я задача: ЯБЛОК НЕ МЕНЬШЕ, ЧЕМ 20
1-я задача:
Я<=Г
Г=15
ответ: плодов не более 30 (15 груш и не более 15 яблок)

2-я задача:
Г=15
Я>=20
ответ: плодов не менее, чем 35 (15 груш и не менее 20 яблок)

Если это всё же одна задача и оба условия надо воспринимать одновременно, то:
ответ: условие задачи некорректно, так как 2 условия противоречат друг другу, то есть не может быть одновременно яблок не больше 15 и не меньше 20.

artashhovhan

07.09.2021

Var
ar: array[1..10]of integer;
i, c, s: integer;
begin
s := 0;
c := 0;
randomize;
for i := 1 to 10 do ar[i] := random(-10, 10);
writeln('Полученный массив:');
for i := 1 to 10 do write(ar[i], ' ');
writeln;
for i := 1 to 10 do if(ar[i] <> 0) then c := c + 1;
writeln('Количество ненулевых элементов = ', c);
for i := 1 to 10 do if(ar[i] <> 0) then s := s + ar[i];
writeln('Сумма всех его ненулевых элементов = ', s);
write('Их среднее арифметическое = ',s/c);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Восстановите текст программы ( вставте пропущенные обозначения ) var I:integer;x:integer; y, q:integer; a:string;begin i:=o;[обнуление переменных]x:=0[ обнуление переменных]y:=0;[обнуление переменных]writeln ("Как вас зовут?Введите ваше имя русскими буквами-') ;[вывод заданного текста на экран]readin (a);[ввод переменной, в которой храниться имя]writeln ('Введите количество расчетных циклов-?); [ вывод заданного текста на экран]readin (i); [ввод переменной, указывающей количество повторений]for vas z:= 1 to I dobeginwriteln ( 'введите х- '); [вывод заданного текста на экран]readin; [ввод переменной]writeln ('введите у-'); [ вывод заданного текста на экран](у); [ввод переменной]q:=q+x+y; [вычисление суммы]end;('Уважаемый', а, 'Сумма всех введённый чисел=', q, ) ;end.