Напишите программу, которая в
последовательности целых чисел
определяет количество двузначных
чисел, кратных 8 или 5. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода,
не входит в последовательность).
Программа должна вывести одно число:
количество нужных чисел
Входные данные
20
32
400
0
Выходные данные
2
(Нужно сделать в Кумире)
Программа:
Pascal:
№1)
var arr: array[1..10] of integer;
begin
for var i := 1 to 10 do arr[i] := random(100);
writeln(arr);
end.
№2)
const N = 15;
var arr: array[1..N] of integer;
i, tmp: integer;
begin
for i := 1 to 15 do arr[i] := random(100);
writeln(arr);
for i:=1 to n div 2 do begin
tmp := arr[i];
arr[i] := arr[N - i + 1];
arr[N - i + 1]:= tmp;
end;
writeln(arr);
end.
№3)
const N = 20;
var
arr: array[1..N] of integer;
i, tmp, j: integer;
begin
for i := 1 to N do readln(arr[i]);
writeln(arr);
for i := 1 to N - 1 do
for j := 1 to N - i do
if (arr[j] > arr[j+1]) then begin
tmp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := tmp;
end;
writeln(arr);
end.
using System;
namespace ConsoleApplication1
{
class Program
{
public static void Main(string[] args)
{
Random random = new Random();
int n = 4;
int[,] A = new int[n, n];
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
A[i, j] = random.Next(0, 100);
}
}
int max = A[n-1, 0];
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
if (i+j==n-1)
{
if (max < A[i, j])
{
max = A[i, j];
}
}
}
}
Console.WriteLine(max);
}
}
}
Объяснение:
Первый цикл заполняем, второй цикл находим максимальное