Создать массив по правилу, показанному в таблице, и вывести его на экран. Найти количество и сумму чётных элементов.
Индекс: 1,2, 3 , 4 , 5 , 6 , 7...
Массив

Question

Информатика: Создать массив по правилу, показанному в таблице, и вывести его на экран. Найти количество и сумму чётных элементов. Индекс: 1,2, 3 , 4 , 5 , 6 , 7... Массив

Arte322r22 · Accepted Answer

Uses crt; type oc=record        per,bt,tr:integer; end; ab=record fam,im:string; ocen:oc; end; var b:array [1..50] of ab; l:ab; i,n,g,k,h:integer; begin clrscr; writeln ( введи количество абитуриентов ); readln (n); Writeln ( Вводи фамилии, имена и 3 оценки ); for i:=1 to n do with b[i] do begin readln (fam); readln (im); readln (ocen.per,ocen.bt,ocen.tr); end; clrscr; for j:=1 to n do for i:=1 to n-1 do if b[i].fam b[i+1].fam then begin l:=b[i]; b[i]:=b[i+1]; b[i+1]:=l; end; writeln ( Список всех...

Создать массив по правилу, показанному в таблице, и вывести его на экран. Найти количество и сумму чётных элементов. Индекс: 1,2, 3 , 4 , 5 , 6 , 7... Массив

MOGZ ответил

Создать массив по правилу, показанному в таблице, и вывести его на экран. Найти количество и сумму чётных элементов.
Индекс: 1,2, 3 , 4 , 5 , 6 , 7...
Массив