введите с клавиатуры массив с оценками 10 учеников. составьте программу для вывода по номеру ученика его оценку
10-11 класс
|
var a:array [1..10] of integer;
i,n:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(5)+1;
end;
readln(n);
case n of
1:writeln(a[1]);
2:writeln(a[2]);
3:writeln(a[3]);
4:writeln(a[4]);
5:writeln(a[5]);
6:writeln(a[6]);
7:writeln(a[7]);
8:writeln(a[8]);
9:writeln(a[9]);
10:writeln(a[10]);
end;
end.
Program z;
var A:array [1..10] of integer;
i,n:integer;
Begin
for i:=1 to 10 do
read(A[i]);
writeln('введите номер ученика');
readln(n);
writeln('оценка ученика - ',A[n]);
end.
Другие вопросы из категории
t ч в этом же направлении выехал легковой автомобиль со скоростью v2 км/ч. Составить программу, определяющую взаимное расположение автомобилей через t1 ч после выезда грузового автомобиля.
200 байт и 0.25 Кбайт
3 байт и 24 бита
1536 бит и 1.5 Кбайт
1000 бит и 1 Кбайт
8192 байта и 1 Кбайт
программу-модель анализа пожарного датчика в помещении, которая выводит
сообщение «Пожароопасная ситуация», если температура в комнате превысила 60
град. С
2.Написать
программу, которая из двух вводимых Вами чисел печатает заключение о том, какое
число больше.
y = 2 х + с ,если x>0
y = 4x^2 - c ,если x<=0
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE