Заданы n натуральных чисел и n одномерной массы ,содержащий элементы символьного типа .Нужно нарисовать блок-схему и программу,которые вычесляют те количество элементов ,значение которых равно 'a'.

я выбирал задания у которых больше всего .

надеюсь тебе это решение

1

var i:integer;

begin

for i:=2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

2

Var

a: Real;

i,n: Integer;

Begin

Writeln

a:=0

for i:=1 to n do

a:= a + sgr(i);

end

Writeln

Readln

end.

6

Var

N1, N2, M, i: Longint

Begin

Write( Wwedite N1= `)

ReadLn (N2)

if (N1=0) and (N2=0) then writeLn;

if N1>N2 then M:= N1 else M:= N2;

i:=M -1;

Repeat

Inc(i);

Until ((i mod N1)=0) and ((i mod N2)=0);

WriteLn ;

end.

12.

program N99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ Term;

Term: = Term×2

end

writeln(s)

readln

end.

Запоминаем стоимость каждого товара, суммируем

Запоминаем сумму, которую даем продавцу, вычитаем сумму покупки.

Смотрим на часы, запоминаем время, открываем программу, смотрим во сколько начнется фильм

Узнаем длину основания, узнаем высоту, применяем формулу площади треугольника

Узнаем массу кирпича, узнаем высоту с которой бросаем кирпич, применяем формулу

Узнаем приблизительные затраты электроэнергии каждого оборудования, суммируем общие затраты.

Видим интересующее слово, открываем словарь, находим слово и перевод

Находим непонятное слово, открываем словарь, переводим