Пас­каль (Ре­ше­ние Марии Пли­нер)

const N=23;

var a:array[1..N] of integer;

i, j, k: integer;

begin

for i := 1 to N do readln(a[i]);

k:= 0;

for i:= 1 to N do

if (a[i]>=1600) and (a[i]<=1800) and (a[i]>=k) then

k:=a[i];

writeln(k);

end.

Си++

#include <iostream>

using namespace std;

#define N 23

int main(void)

{

int a[N];

int i,j,k;

k = 0;

for (int i=0; i<N; i++) cin >> a[i];

if (a[i]<=1800 && a[i]>=1600 && a[i]>k) k=a[i];

cout << k<< endl;

}

Есте­ствен­ный язык

Объ­яв­ля­ем мас­сив А из 23 эле­мен­тов. Объ­яв­ля­ем це­ло­чис­лен­ные пе­ре­мен­ные i, j, k. В цикле от 1 до 23 вво­дим эле­мен­ты мас­си­ва А с 1-го по 23-й.

За­пи­сы­ва­ем в пе­ре­мен­ную k на­чаль­ное зна­че­ние, рав­ное 0. В цикле от пер­во­го эле­мен­та до два­дцать тре­тье­го срав­ни­ва­ем эле­мен­ты ис­ход­но­го мас­си­ва с чис­ла­ми 1800 и 1600 и со зна­че­ни­ем пе­ре­мен­ной k. Если те­ку­щий эле­мент мень­ше либо равен 1800 и боль­ше либо равен 1600 и боль­ше либо равен k, то при­сва­и­ва­ем пе­ре­мен­ной k зна­че­ние те­ку­ще­го эле­мен­та мас­си­ва. Пе­ре­хо­дим к сле­ду­ю­ще­му эле­мен­ту. После за­вер­ше­ния цикла вы­во­дим зна­че­ние пе­ре­мен­ной К

Python

i=0

for f in range (0,n):

    if a[f]>=1600 and a[f]<=1800 and a[f]>i:

        i=a[f]

print(i)