сервис вопросов и ответоврешите пожалуйста 9 класс
5-9 класс|
|
Прикрепленные изображения
Korzhm
07 апр. 2017 г., 5:28:38 (7 лет назад)
Milonna
07 апр. 2017 г., 7:21:41 (7 лет назад)
Не проверял, но должно работать:
program test;
var
arr:array[1..10] of integer;
i,pr:integer;
begin
for i:=1 to 10 do
begin
pr:=1;
arr[i]:=random(11);
write(arr[i],' ');
if (arr[i] mod 3) = 0 then sum:=pr*arr[i];
end;
writeln;
writeln(pr);
readln;
end.
program test;
var
arr:array[1..20] of integer;
i,sum,n:integer;
begin
for i:=1 to 20 do
begin
sum:=1;
arr[i]:=random(5)+12; {Вообще не помню рандомазер, но вроде так.}
write(arr[i],' ');
if (arr[i] mod 3) = 0 then
begin
sum:=sum+arr[i];
n:=n+1;
end;
end;
sum:=sum/n;
writeln;
writeln(sum);
readln;
end.
Ответить
Другие вопросы из категории
1)Отдельное свойство объекта окружающего мира вызывает у нас:
A)представление
В)Ощущение
С)Восприятие
2)Целостное отражение объекта,непосредственно воздействующего на наши органы чувств,-это
А)Представление
В)Ощущение
С)Восприятие
3)Чувственный образ объекта,в данный момент нами не воспринимаемого,но воспринятого ранее,-это:
А)Представление
В)Ощущение
С)Восприятие
Эй,человечки,помогите пожалуйста!!!!
Одномерный массив из 8 элементов заполнить случайным образом числами от 10 до 20. Заменить все элементы массива меньше 15 их удвоенными значениями.Вывести на экран монитора первоначальный и преобразованный массивы в столбик (столбики должны быть расположены рядом)
Вы находитесь на странице вопроса "решите пожалуйста 9 класс", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.