Дан массив A(n) символов. Найти сумму порядковых номеров символов п, р, с, т
Подскажите умоляю, контрольная итоговая
Паскаль
Одномерный массив
korsa351:
Известно что в каждом массиве будут символы п, р, с, т?
Ответы на вопрос
Ответил korsa351
1
Ответ:
var
B: array [1..10] of string :=('а','р','ц','ь','т','в','ц','п','б','с');
total: integer;
begin
for var i:= 1 to 10 do
begin
if B[i]='п' then total:=total+i;
if B[i]='р' then total:=total+i;
if B[i]='с' then total:=total+i;
if B[i]='т' then total:=total+i;
end;
writeln(total);
end.
Объяснение:
Приложения:

Новые вопросы