Помогите, ПРОШУ!!!
1. Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 6 файлов в байтах (от 100 до 2000) и вычисляет СРЕДНИЙ РАЗМЕР ФАЙЛА.
2. Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ НЕЧЕТНЫХ ЧИСЕЛ.
(Если можно, то пожалуйста с пояснениями. Один урок пропустила, такое ощущение, что год не была — вообще ничего не понятно)
ЗАРАНЕЕ СПАСИБО!)
Домашние задания: Информатика
ПОМОГИТЕ С ИНФОРМАТИКОЙ 9 КЛАСС!
ЗАДАНИЕ 1:
program Yuyman1;
label s;
var
i, input, sum : integer;
files : array[1..6] of integer;
const
MIN = 100;
MAX = 2000;
begin
writeln('Ограничение на размер файла от ', MIN, ' до ', MAX, ' байт.');
for i := 1 to 6 do begin
s:
write('Введите размер ', i, ' файла: ');
read(input);
// Проверка на недопустимое значение размера файла
if ((input < 100) or (input > 2000)) then begin
writeln('Недопустимое значение!');
// Вернуться на метку s для повторного ввода
goto s;
end
else begin
files[i] := input;
// Сумма размеров всех файлов увеличивается на размер текущего ввода
sum += input;
end;
end;
// Расчет и вывод среднего размера файла
writeln(#10, 'Средний размер файла: ', sum div 6);
end.
ЗАДАНИЕ 2:
program Yuyman2;
var
// i - итератор цикла
// sum - для подсчета размера всех элементов
i, sum : integer;
a : array[1..40] of integer;
begin
// Включение генератора псевдослучайных чисел
randomize;
writeln('Массив случайных чисел:');
// Перебор всех индексов массива
for i := 1 to 40 do begin
// Текущий элемент массива равен случайному числу от 0 до 20
a[i] := random(20+1);
// Вывод на экран текущего элемента массива
write(a[i]:3);
// Сумма всех элементов массива до текущего увеличивается на значение текущего элемента
sum += a[i];
end;
// Расчет и вывод среднего арифметического
writeln(#10, 'Среднее арифметическое элементов массива: ', sum div 40);
end.
program Yuyman1;
label s;
var
i, input, sum : integer;
files : array[1..6] of integer;
const
MIN = 100;
MAX = 2000;
begin
writeln('Ограничение на размер файла от ', MIN, ' до ', MAX, ' байт.');
for i := 1 to 6 do begin
s:
write('Введите размер ', i, ' файла: ');
read(input);
// Проверка на недопустимое значение размера файла
if ((input < 100) or (input > 2000)) then begin
writeln('Недопустимое значение!');
// Вернуться на метку s для повторного ввода
goto s;
end
else begin
files[i] := input;
// Сумма размеров всех файлов увеличивается на размер текущего ввода
sum += input;
end;
end;
// Расчет и вывод среднего размера файла
writeln(#10, 'Средний размер файла: ', sum div 6);
end.
ЗАДАНИЕ 2:
program Yuyman2;
var
// i - итератор цикла
// sum - для подсчета размера всех элементов
i, sum : integer;
a : array[1..40] of integer;
begin
// Включение генератора псевдослучайных чисел
randomize;
writeln('Массив случайных чисел:');
// Перебор всех индексов массива
for i := 1 to 40 do begin
// Текущий элемент массива равен случайному числу от 0 до 20
a[i] := random(20+1);
// Вывод на экран текущего элемента массива
write(a[i]:3);
// Сумма всех элементов массива до текущего увеличивается на значение текущего элемента
sum += a[i];
end;
// Расчет и вывод среднего арифметического
writeln(#10, 'Среднее арифметическое элементов массива: ', sum div 40);
end.
на каком языке?
Тамара Терешина
в ЕГЭ по информатике такой используется в вариантах ответа, например
с=0
для х от 1 до 6
ввод р
с=с+р
кц
ср=с/6
вывод ср
с=0
к=0
для х от 1 до 40
а (х) =рандом (21)
если а (х) мод 2 =1 то с=с+а (х) к=к+1
кц
ср=с/к
для х от 1 до 6
ввод р
с=с+р
кц
ср=с/6
вывод ср
с=0
к=0
для х от 1 до 40
а (х) =рандом (21)
если а (х) мод 2 =1 то с=с+а (х) к=к+1
кц
ср=с/к
тут явно больше одного урока, потому как можно дать ответ и на алгоритмическом языке
Похожие вопросы
- Пожалуйста помогите решить информатика 9 класс
- Помогите с информатикой 9 класс, пожалуйста
- Помогите с информатикой 9 класс, пожалуйста!!!!!
- Информатика 9 класс
- Задание по информатике. 9 Класс
- помогите с информатикой 11 класс
- Помогите пожалуйста!!! Очень срочно, информатика, 9 класс!!!
- Информатика 9 класс помогите пожалуйста!
- ИНФОРМАТИКА 9 КЛАСС ПОМОГИТЕ!
- Информатика, 9 класс, прошу, помогите!!!