Каждый третий элемент массива заменить числом 10.

@zxcz · Регистрация: 20.10.2011

Студворк — интернет-сервис помощи студентам

Помогите с задачками
1 задача по одномерным массивам

Каждый третий элемент массива заменить числом 10.

2 По двумерным массивам

Дан целочисленный массив А[1..5, 1..3]. Вывести на экран элементы массива, кратные 5, и их индексы.

3 По строкам

Составить программу подсчета общего количества цифр и знаков «+», «—»,«*» в строке s, введенной с клавиатуры.

@КонецСвета · 22.11.2011, 19:39

третья

Pascal

uses crt;
var s:string;
    i,k: integer;
begin
write ('s=');
readln(s);
for i:=1 to length(s) do
    if s[i] in ['+','-','*'] then inc(k);
writeln('Количество "+", "-" и "*" = ',k);
end.

Добавлено через 39 минут
первая

Pascal

uses crt;
var a:array [1..100] of integer;
    i,n: integer;
begin
write ('Pазмер массива ');
readln(n);
writeln ('Исходный массив ');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln ('Итоговый массив ');
for i:=1 to n do
    begin
    if i mod 3=0 then a[i]:=10;
    write(a[i]:3);
    end;
end.

@zxcz 1 / 1 / 2 Регистрация: 20.10.2011 Сообщений: 62
		1
	Каждый третий элемент массива заменить числом 10. 22.11.2011, 18:27. Показов 7794. Ответов 1 Метки нет (Все метки) Помогите с задачками 1 задача по одномерным массивам Каждый третий элемент массива заменить числом 10. 2 По двумерным массивам Дан целочисленный массив А[1..5, 1..3]. Вывести на экран элементы массива, кратные 5, и их индексы. 3 По строкам Составить программу подсчета общего количества цифр и знаков «+», «—»,«*» в строке s, введенной с клавиатуры. 1

Опции темы

Каждый третий элемент массива заменить числом 10.

Решение