Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые положительные значения от 1 до 10 000 включительно. Напишите на одном из языков программирования программу, которая находит сумму минимального из чётных элементов массива и минимального из нечётных элементов массива, затем уменьшает все элементы массива, которые больше этой суммы, на величину этой суммы, и выводит изменённый массив в обратном порядке, по одному числу в строке. Если в массиве нет чётных или нечётных элементов, считается, что соответствующий минимум равен 0. Например, из массива 7, 5, 2, 4, 8, 10, 14, 15 программа должна получить массив 7, 5, 2, 4, 1, 3, 7, 8 и вывести (по одному числу в строке) числа: 8 7 3 1 4 2 5 7 PYTHON
Ответы
Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Укажите лишнее глаза уши нос и лицо нос язык
Автор: dima0218687
Составьте программу определяющую четноное или нечетное количество лепестков у ромашки.
Автор: kirillboytsov403
Построить таблицу истинности F=not A ^ B<->notC v B ^notA
Автор: goldenshtein33333
Инфопмация представленная в форме пригодной для хранения передачи и обработки компьютером
Автор: Банова_Елена431
Изменение порядка следования данных в соответствии с определенным критерием называется
Автор: stertumasova29
30 начертите блок ввода даных
Автор: aleksey7800
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;
begin
writeln('Ввод названий газет:');
for i:=1 to n do
begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
else writeln('Петров не выписывает Правду.');
end.
Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.